0 FORL=54272TO54296:POKEL,0:NEXTL:POKE53281,15:POKE53280,15
1 POKE54296,0:PRINT"[147]TYPING DERBY[146][144]"
2 PRINT" INSTRUCTIONS (Y=YES)"
4 GETA$:IFA$=""THEN4
6 IFA$="Y"THENGOSUB400
8 PRINT"[147] ENTER LEVEL (1-13)";:INPUTL1
9 IFL1<1ORL1>13THEN8
10 C(0)=55456:C(1)=55576:C(2)=55696:H=1184:H1=1224:J=1624
11 L=L1:S=(220*(L1-1))+(10*-(L1>1))
14 PRINT"[147]COMPUTER SPEED (5-50)"SPC(58)"(50 IS THE SLOWEST)";
15 INPUTR1:R=R1
16 IFR<5ORR>50THEN14
17 GOTO21
18 POKE 198,0:PRINT"[147] DO YOU WISH TO CONTINUE? (Y/N)";
19 GETX$:IFX$=""ANDX$<>"N"ANDX$<>"Y"THEN19
20 IFX$="N"THENEND
21 M=0:N=0:N1=0:IFS>220*LTHENL=L+1:L1=L1+1:R=R1:IFL.13THENPRINT"[147] THE END 1"
22 PRINTCHR$(147):POKE53280,3:POKE53281,1:PRINT"[145][144]SCORE:"S:IFL1>9THEN24
23 PRINTTAB(30)"[145][146] LEVEL"L1"[146]":GOTO30
24 PRINTTAB(30)"[145][145] LEVEL"L1"[146]"
30 FORI=1144TO1183:POKEI,114:POKEI+54272,0:NEXTI
31 FORI=1264TO1303:POKEI,91:POKEI+54272,0:NEXTI
32 FORI=1384TO1423:POKEI,91:POKEI+54272,0:NEXTI
33 FORI=1504TO1543:POKEI,113:POKEI+54272,0:NEXTI
34 POKE1502,103:POKE55774,0:POKE1462,95:POKE55734,2
35 FORI=1TO3*L-2:READD$:NEXTI:RESTORE:PRINT""D$
50 FORI=1TO3*L-1:READD$:NEXTI:RESTORE:PRINT""D$
51 FORI=1TO3*L:READD$:NEXTI:RESTORE:PRINT""D$
53 IFL=7THENPOKE1646,44
54 IFL=8THENFORI=OTO6STEP2:POKE1624+I,58:NEXTI
55 IFL=8THEN:POKE1663,44:POKE1730,58:POKE1732,58
56 IFL=9THENPOKE1689,58
60 FORI=0TO2:FORT=0TO39:POKEC(I)+T,2:NEXTT:NEXTI:POKEH,94
70 FORI=0TO2:FORT=0TO39:POKEC(I)+40+T,0:NEXTT:NEXTI:POKEH1,94
80 IFN=0ANDM=0ORS=(300*L)+10THENGOSUB300
90 IFM=39ORM=159THENM1=M:M=M+80
100 IFPEEK(H1+M+1)<>32THEN18
110 IFTI>T+RTHENPOKEH1+M1,32:POKEH1+M,32:M=M+1:POKEH1+M,94:T=TI
120 GETA$:IFA$=""THEN90
130 IFASC(A$)=PEEK(J+N1)THEN150
140 IFASC(A$)<>PEEK(J+N1)+64THEN90
150 POKE55896+N1,2:N1=N1+1:IFN=39ORN=159THENN2=N:N=N+81
160 POKEH+N,32:POKEH+N2,32:N=N+1:IFPEEK(H+N)<>32THENS=S+10:R=R-1:GOTO18
170 POKEH+N,94:GOTO90
200 DATAFRF FTF FGF FBF FVF FRF FTF FGF FBF FVF
201 DATAFRF FTF FGF FBF FVF FRF FTF FGF FBF FVF
202 DATAFRF FTF FGF FBF FVF FRF FTF FGF FRTB
203 DATADED DCD FRF FTF FGF FBF FVF DED DCD FRF
204 DATAFTF FGF FBF FVF DED DCD FRF FTF FGF FBF
205 DATAFVF DED DCD FRF FTF FGF FBF FVF FDEV
206 DATASWS SXS DED DCD FRF FTF FGF FBF FVF SWS
207 DATASXS DED DCD FRF FTF FGF FBF FVF SWS SXS
208 DATADED DCD FRF FTF FGF FBF FVF SWS SCDX
209 DATAAQA AZA SWS SXS DED DCD FRF FTF FGF AQA
210 DATAAZA SWS SXS DED DCD FRF FTF FGF AQA AZA
211 DATASWS SXS DED DCD FRF FTF FGF AQA AZQW
212 DATAJUJ JYJ JHJ JNJ JMJ AQA AZA SWS SXS DED
213 DATADCD JUJ JYJ JHJ JNJ JMJ AQA AZA SWS SXS
214 DATADED DCD JUJ JYJ JHJ JNJ JMJ AQAJUQX
215 DATAKIK KIK JUJ JYJ JHJ JNJ JMJ AQA AZA SWS
216 DATA SXS DED DCD KIK KIK FRF JUJ JYJ JNJ JMJ
217 DATAAQA AZA SWS SXS DED DCD KIK KIK KIZD
218 DATALOL L.L KIK KIK JUJ JYJ JHJ JNJ JMJ AQA
219 DATAAZA SWS SXS FTF LOL L.L KIK KIK JUJ JYJ
220 DATAJHJ JNJ JMJ AQA AZA SWS SXS FTF LZJM
221 DATA;P; ;/; LOL L.L KIK KIK JUJ JYJ JHJ JNJ
222 DATAJMJ AQA AZA SWS SXS ;P; ;/; LOL L.L KIK
223 DATAKIK JUJ JYJ JHJ JNJ JMJ AQA AZA SK;Q
224 DATAA11 S22 D33 F44 F55 J66 J77 K88 L99 ;00
225 DATA Z11 X22 C33 V44 V55 N66 A11 S22 D33 F44
226 DATAF55 J66 J77 K88 L99 ;00 Z11 X22 C3F5
227 DATAIF IF  IT IT IT  IS IS IS TIME TIME IF I
228 DATAF IF IT IS TIME IF IT IS IS IS IT IT IT IS
229 DATAIF IF IS IS TIME TIME TIME IT IT  IFS
230 DATAWE WE WE  CAN CAN CAN  PLAY PLAY PLAY WE
231 DATAWE WE WE CAN CAN CAN PLAY CAN PLAY WE WE
232 DATACAN CAN WE WE PLAY PLAY WE CAN  CANN
233 DATATHE LITTLE BROWN FOX QUICKLY RUNS AND JU
234 DATAMPS OVER THE LAZY DOG.DOG IS LAZY.FOX IS
235 DATA JUMPING.DOG IS SLEEPY AND VERY ANGRY
236 DATATHIS RACE WILL END THE GAMES;IF YOUR TYP
237 DATAING DOES NOT FAIL.BYE.YOUR TYPING SHOULD
238 DATA NOT FAIL. YOUR PRACTICE WAS RIGOROUS
300 V=54296:V1=54276:AD=54277:SR=54278:FH=54273:FL=54272
301 POKEV,15:POKEFH,70:POKEFL,75
302 POKEAD,26:POKESR,178:FORT=1TO10:POKEV1,17
303 FORQ=1TO150:NEXT:POKEV1,16:NEXT
304 POKE54296,0:RETURN
400 PRINT"[147]TYPING DERBY[146][144]"
401 PRINT" BASIC TOUCH TYPING TUTOR[146]"
402 PRINT"1[146] LEARN FINGERS' RANGE ON THE KEY-        BOARD"
403 PRINT"2[146] TYPE WITHOUT LOOKING AT THE KEYBOARD"
404 PRINT"3[146] AT FIRST, ACCURACY IS BETTER THAN       SPEED"
405 PRINT"4[146] BEAT THE BLACK HORSE 23 TIMES AND       MOVE ON";
406 PRINT "TO THE NEXT LEVEL":PRINT"[144] PRESS ANY KEY TO CONTINUE[146]"
407 GETF$:IFF$=""THEN407
650 PRINT"[147]":POKE53280,9:POKE53281,15
660 PRINT"[147] ":PRINT"          [209] [146]                 [209] "
670 PRINT"       [209][167] 3[167] [209] [146]           [209][167] 8[167] [209] "
680 PRINT"       2[167] E[167] 4 [146]           6[167] I[167] 9 "
690 PRINT"    [209][170] W[170][152]D[167] 5 [146]             7[170] [152]K[167] O[167] [209] "
700 PRINT"    1[167] [152]S[167] C[167] R [146]           Y[167] ,[167] [152]L[167] 0 "
710 PRINT"    Q[167] X[167]  [167] T[167] [209] [146]     [209][167] U[167]  [167] .[167] P "
720 PRINT"    [152]A[167]       [152]F[167]   [146]     [144]S[167] H      [167] [152]: "
730 PRINT"    Z[167]       G[167]   [146]     [144]P[167][152]J      [167] / "
740 PRINT"             V[167]   [146]    [144]C  M          "
750 PRINT"             B    [146]     [144]E  N          "
760 PRINT"                 [146][169]    [223]              "
770 PRINT"   [223]            [146][169]      [223]            [146][169]"
780 PRINT"    [223]          [146][169]        [223]          [146][169]"
790 PRINT"               [146]                    "
800 PRINT"               [146]                    "
810 PRINT:PRINT"        LEFT[146]                RIGHT"
820 PRINTTAB(14)"FINGER RANGE":PRINT"               [144]SPACE BAR[146]"
830 PRINT"               [152]HOME KEYS[146]"
840 PRINT"PRESS ANY KEY TO CONTINUE";
850 GETQ$:IFQ$=""THEN850
860 RETURN